home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_31848.txt < prev    next >
Text File  |  1990-08-14  |  9KB  |  374 lines
  1. -- card: 31848 from stack: in
  2. -- bmap block id: 32585
  3. -- flags: 4000
  4. -- background id: 25390
  5. -- name: Daily Attendance Codes…
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=135 top=309 right=327 bottom=203
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: OK
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   lock screen
  23.   repeat with index = 1 to 5
  24.     put empty into card field index
  25.   end repeat
  26.   set icon of button 3 to "Lg Unchecked Box"
  27.   set icon of button 4 to "Lg Unchecked Box"
  28.   set icon of button 5 to "Lg Checked Box"
  29.   set icon of button 6 to "Lg Unchecked Box"
  30.   set icon of button 7 to "Lg Unchecked Box"
  31.   set icon of button 8 to "Lg Unchecked Box"
  32.   set icon of button 9 to "Lg Checked Box"
  33.   set icon of button 10 to "Lg Checked Box"
  34.   set icon of button 11 to "Lg Checked Box"
  35.   set icon of button 12 to "Lg Unchecked Box"
  36.   set icon of button 13 to "Lg Unchecked Box"
  37.   hide button 13
  38.   doMenu first
  39.   unlock screen
  40. end mouseUp
  41.  
  42.  
  43.  
  44. -- part 2 (button)
  45. -- low flags: 00
  46. -- high flags: 2000
  47. -- rect: left=315 top=309 right=327 bottom=383
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Cancel
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   lock screen
  59.   repeat with index = 1 to 5
  60.     put empty into card field index
  61.   end repeat
  62.   set icon of button 3 to "Lg Unchecked Box"
  63.   set icon of button 4 to "Lg Unchecked Box"
  64.   set icon of button 5 to "Lg Checked Box"
  65.   set icon of button 6 to "Lg Unchecked Box"
  66.   set icon of button 7 to "Lg Unchecked Box"
  67.   set icon of button 8 to "Lg Unchecked Box"
  68.   set icon of button 9 to "Lg Checked Box"
  69.   set icon of button 10 to "Lg Checked Box"
  70.   set icon of button 11 to "Lg Checked Box"
  71.   set icon of button 12 to "Lg Unchecked Box"
  72.   set icon of button 13 to "Lg Unchecked Box"
  73.   hide button 13
  74.   doMenu first
  75.   unlock screen
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 3 (field)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=16 top=280 right=297 bottom=174
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 10
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: 
  92. ----- HyperTalk script -----
  93. on closeField
  94.   if me is not empty then
  95.     show button "Unexcused 11"
  96.   end if
  97. end closeField
  98.  
  99.  
  100. -- part 4 (field)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=174 top=280 right=297 bottom=254
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 3
  108. -- text size: 10
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112.  
  113.  
  114. -- part 5 (field)
  115. -- low flags: 00
  116. -- high flags: 0000
  117. -- rect: left=256 top=280 right=297 bottom=310
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: 
  126.  
  127.  
  128. -- part 6 (field)
  129. -- low flags: 00
  130. -- high flags: 0000
  131. -- rect: left=310 top=280 right=297 bottom=364
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 3
  136. -- text size: 10
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: 
  140.  
  141.  
  142. -- part 7 (field)
  143. -- low flags: 00
  144. -- high flags: 0000
  145. -- rect: left=364 top=280 right=297 bottom=418
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 0
  149. -- font id: 3
  150. -- text size: 10
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: 
  154.  
  155.  
  156. -- part 13 (button)
  157. -- low flags: 00
  158. -- high flags: 0000
  159. -- rect: left=439 top=105 right=120 bottom=454
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 5066 / 5066
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Unexcused 1
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   if icon of me is "5067" then
  171.     set icon of me to "Lg Unchecked Box"
  172.   else set icon of me to "Lg Checked Box"
  173. end mouseUp
  174.  
  175.  
  176. -- part 14 (button)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=439 top=121 right=136 bottom=454
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 5066 / 5066
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: Unexcused 2
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   if icon of me is "5067" then
  191.     set icon of me to "Lg Unchecked Box"
  192.   else set icon of me to "Lg Checked Box"
  193. end mouseUp
  194.  
  195.  
  196. -- part 15 (button)
  197. -- low flags: 00
  198. -- high flags: 0000
  199. -- rect: left=439 top=153 right=168 bottom=454
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 5067 / 5067
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Unexcused 3
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   if icon of me is "5067" then
  211.     set icon of me to "Lg Unchecked Box"
  212.   else set icon of me to "Lg Checked Box"
  213. end mouseUp
  214.  
  215.  
  216. -- part 16 (button)
  217. -- low flags: 00
  218. -- high flags: 0000
  219. -- rect: left=439 top=169 right=184 bottom=454
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 5066 / 5066
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: Unexcused 4
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   if icon of me is "5067" then
  231.     set icon of me to "Lg Unchecked Box"
  232.   else set icon of me to "Lg Checked Box"
  233. end mouseUp
  234.  
  235.  
  236. -- part 17 (button)
  237. -- low flags: 00
  238. -- high flags: 0000
  239. -- rect: left=439 top=185 right=200 bottom=454
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 5066 / 5066
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Unexcused 5
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   if icon of me is "5067" then
  251.     set icon of me to "Lg Unchecked Box"
  252.   else set icon of me to "Lg Checked Box"
  253. end mouseUp
  254.  
  255.  
  256. -- part 18 (button)
  257. -- low flags: 00
  258. -- high flags: 0000
  259. -- rect: left=439 top=201 right=216 bottom=454
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 5066 / 5066
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: Unexcused 6
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   if icon of me is "5067" then
  271.     set icon of me to "Lg Unchecked Box"
  272.   else set icon of me to "Lg Checked Box"
  273. end mouseUp
  274.  
  275.  
  276. -- part 19 (button)
  277. -- low flags: 00
  278. -- high flags: 0000
  279. -- rect: left=439 top=217 right=232 bottom=454
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 5067 / 5067
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: Unexcused 7
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   if icon of me is "5067" then
  291.     set icon of me to "Lg Unchecked Box"
  292.   else set icon of me to "Lg Checked Box"
  293. end mouseUp
  294.  
  295.  
  296. -- part 20 (button)
  297. -- low flags: 00
  298. -- high flags: 0000
  299. -- rect: left=439 top=233 right=248 bottom=454
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 5067 / 5067
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: Unexcused 8
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   if icon of me is "5067" then
  311.     set icon of me to "Lg Unchecked Box"
  312.   else set icon of me to "Lg Checked Box"
  313. end mouseUp
  314.  
  315.  
  316. -- part 21 (button)
  317. -- low flags: 00
  318. -- high flags: 0000
  319. -- rect: left=439 top=249 right=264 bottom=454
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 5067 / 5067
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Unexcused 9
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   if icon of me is "5067" then
  331.     set icon of me to "Lg Unchecked Box"
  332.   else set icon of me to "Lg Checked Box"
  333. end mouseUp
  334.  
  335.  
  336. -- part 22 (button)
  337. -- low flags: 00
  338. -- high flags: 0000
  339. -- rect: left=439 top=265 right=280 bottom=454
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 5066 / 5066
  342. -- text alignment: 1
  343. -- font id: 0
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 16
  347. -- part name: Unexcused 10
  348. ----- HyperTalk script -----
  349. on mouseUp
  350.   if icon of me is "5067" then
  351.     set icon of me to "Lg Unchecked Box"
  352.   else set icon of me to "Lg Checked Box"
  353. end mouseUp
  354.  
  355.  
  356. -- part 23 (button)
  357. -- low flags: 80
  358. -- high flags: 0000
  359. -- rect: left=439 top=281 right=296 bottom=454
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 5066 / 5066
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: Unexcused 11
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   if icon of me is "5067" then
  371.     set icon of me to "Lg Unchecked Box"
  372.   else set icon of me to "Lg Checked Box"
  373. end mouseUp
  374.